home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 48 / Amiga Format CD48 (1999-12-13)(Future Publishing)(GB)(Track 1 of 2)[!][issue 2000-01].iso / -websites- / whdload / games / dragonscape.lha / DragonscapeHD / Install < prev    next >
Text File  |  1999-07-08  |  2KB  |  132 lines
  1. (set #sub-dir "data")        ;sub directory containing data files
  2. (set #readme-file "Dragonscape.readme")    ;name of readme file
  3.  
  4. (procedure P_chkrun
  5.   (if
  6.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  7.     ("")
  8.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  9.   )
  10. )
  11.  
  12. (procedure P_disk
  13.   (askdisk
  14.     (dest #AD_disk)
  15.     (prompt ("\nInsert Disk \"%s\" in any drive !" #AD_disk))
  16.     (help @askdisk-help)
  17.   )
  18. )
  19.  
  20. (if
  21.   (exists #readme-file)
  22.   (if 
  23.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  24.     ("")
  25.     (run ("SYS:Utilities/More %s" #readme-file))
  26.   )
  27. )
  28.  
  29. (set #program "WHDLoad")
  30. (P_chkrun)
  31.  
  32. (set @default-dest
  33.   (askdir
  34.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  35.     (help @askdir-help)
  36.     (default @default-dest)
  37.     (disk)
  38.   )
  39. )
  40. (set #dest (tackon @default-dest @app-name))
  41. (if
  42.   (exists #dest)
  43.   (
  44.     (set #choice
  45.       (askbool
  46.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  47.         (default 1)
  48.         (choices "Delete" "Skip")
  49.         (help @askbool-help)
  50.       )
  51.     )
  52.     (if
  53.       (= #choice 1)
  54.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  55.     )
  56.   )
  57. )
  58. (makedir #dest
  59.   (help @makedir-help)
  60.   (infos)
  61. )
  62.  
  63. ;----------------------------
  64.  
  65. (copyfiles
  66.   (help @copyfiles-help)
  67.   (source ("%s.slave" @app-name))
  68.   (dest #dest)
  69. )
  70. (if
  71.   (exists ("%s.newicon" @app-name))
  72.   (set #icon
  73.     (askchoice
  74.       (prompt "\nWhich icon do you like to install ?\n")
  75.       (default 0)
  76.       (choices "Normal" "NewIcon")
  77.       (help @askchoice-help)
  78.     )
  79.   )
  80.   (set #icon 0)
  81. )
  82. (select #icon
  83.   (set #icon ("%s.inf" @app-name))
  84.   (set #icon ("%s.newicon" @app-name))
  85. )
  86. (copyfiles
  87.   (help @copyfiles-help)
  88.   (source #icon)
  89.   (newname ("%s.info" @app-name))
  90.   (dest #dest)
  91. )
  92. (if
  93.   (exists #readme-file)
  94.   (copyfiles
  95.     (help @copyfiles-help)
  96.     (source #readme-file)
  97.     (dest #dest)
  98.   )
  99. )
  100. (if
  101.   (exists ("%s.info" #readme-file))
  102.   (copyfiles
  103.     (help @copyfiles-help)
  104.     (source ("%s.info" #readme-file))
  105.     (dest #dest)
  106.   )
  107. )
  108. (if
  109.   (= #sub-dir "")
  110.   ("")
  111.   (
  112.     (set #dest (tackon #dest #sub-dir))
  113.     (makedir #dest
  114.       (help @makedir-help)
  115.     )
  116.   )
  117. )
  118.  
  119. ;----------------------------
  120.  
  121. (set #AD_disk "dragonscape")
  122. (P_disk)
  123.  
  124. (copyfiles
  125.   (help @copyfiles-help)
  126.   (source ("%s:" #AD_disk))
  127.   (dest #dest)
  128.   (all)
  129. )
  130.  
  131. (exit)
  132.